home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 94
/
64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64
/
turtle-demo 9
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
360b
|
20 lines
1 rem turtle-demo: 'patterns'
2 rem n. heusler 11.91
3 :
10 sys49152
20 !graphics
30 x=0:y=0
110 i=i+1
120 !pen0:!movex,y:x=x+1:y=y+1:!angle270:!mode1
121 m=0:forj=0to7:l=0:k=rnd(ti):ifk<i/100thenl=1
122 m=m+l*2^j:next
130 !patternm
140 !walk320-i*2:ifi=100then:!finish
150 !turnr90
160 !walk200-i*2
170 !turnr90
180 !walk320-i*2
190 !turnr90
200 !walk199-i*2
210 goto110